home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / TOOLS / INSTALIT.ZIP / INSTALLG.DAT < prev    next >
Encoding:
Text File  |  1993-11-28  |  2.5 KB  |  64 lines
  1. ;  ***********************************************************
  2. ;  **                                                       **
  3. ;  **   INSTALL.DAT                                         **
  4. ;  **                                                       **
  5. ;  **   Copyright 1993 group.m                              **
  6. ;  **   Translated in 1993 by PCMAG Software GbR            **
  7. ;  **                                                       **
  8. ;  **   Dies ist eine Beispiel Script Datei, die mit        **
  9. ;  **   INSTALL IT! vertrieben wird. Diese Datei kopiert    **
  10. ;  **   die INSTALL IT! Programmdateien von einer Diskette  **
  11. ;  **   (oder einem Verzeichnis) an einen anderen Ort. Für  **
  12. ;  **   weitere Informationen über diese Datei schauen Sie  **
  13. ;  **   bitte in der Datei INSTALL.DOC nach.                **
  14. ;  **                                                       **
  15. ;  ***********************************************************
  16.  
  17.  
  18. Title('INSTALL IT! Beispiel Script')
  19.  
  20. ShowLines('OKQuit',
  21.           'Willkommen zum Beispiel Installations Script.',
  22.           '',
  23.           'Dieses Script kopiert das INSTALL IT! Produkt von einer Diskette',
  24.           '(oder einem Verzeichnis) an einen anderen Ort und demonstriert',
  25.           'Leistungsmerkmale von INSTALL IT! .',
  26.           '',
  27.           'Zum Fortfahren bitte den OK Knopf oder ENTER drücken.',
  28.           'Um die Installation zu beenden drücken Sie bitte den ENDE Knopf',
  29.           'oder ESC.')
  30.  
  31. ShowLines('NoButton',
  32. 'Um mit der Installation fortzufahren müssen Sie entscheiden, wohin',
  33. 'INSTALL IT! kopiert werden soll. Voreinstellung ist  C:\INSTALIT.',
  34. 'Wenn dies akkzeptabel ist, drücken Sie den OK Knopf oder ENTER.',
  35. 'Möchten Sie einen anderen Pfad verwenden, so geben Sie ihn bitte',
  36. 'ein und drücken ENTER.')
  37.  
  38. GetPath(DestinationPath <
  39.          'C:\INSTALIT' ('Geben Sie das Zielverzeichnis ein.'))
  40.  
  41. HideLines('Last')
  42.  
  43. PromptPath(DestinationPath, 'Exist')
  44.  
  45. ShowLines('NoButton',
  46. 'Bitte haben Sie einen Moment Geduld. INSTALL IT! wird kopiert...')
  47.  
  48. Transfer(Installpath + '\*.*' > DestinationPath)
  49.  
  50. HideLines('Last')
  51.  
  52. ChDir(DestinationPath)
  53.  
  54. ShowLines('NoButton',
  55. 'Die Installation ist nun abgeschlossen.',
  56. '',
  57. ' INSTALL IT! wurde nach '+ DestinationPath+ ' kopiert.',
  58. '',
  59. 'Die Anleitung zum Benutzen von INSTALL IT! ist in der Datei',
  60. 'INSTALL.DOC. Bitte lesen Sie sich die Abschnitte über Registratur',
  61. 'und "Maßanfertigung" (customization) durch, und registrieren',
  62. 'Sie dieses Produkt.')
  63.  
  64.